home *** CD-ROM | disk | FTP | other *** search
- on exitFrame
- go(the frame)
- end
-
- on keyDown
- set theCastnum to the number of cast "SelectionList"
- set theText to the text of cast theCastnum
- set theIndex to 0
- set theOffset to 7
- repeat with i = 1 to the number of lines in theText
- set theChar to char 1 of line i of theText
- if theChar = the key then
- set theIndex to i
- exit repeat
- end if
- end repeat
- if theIndex <> 0 then
- set thePoint to min(theIndex + theOffset, the number of lines in field theCastnum)
- put EMPTY before line thePoint of field theCastnum
- else
- beep()
- end if
- end
-